MODBUS RTU Serial RS232/RS485 and TCP/IP for Windows

MODBUS设备使用[MBusDrv.dll]库R / W数据访问。

导出函数（pascal声明）：

{*来自MODBUS设备的标准读取数据*}
函数GetMBData（const SlaveAddr：byte; const ReadType：boolean; var Data：array [0..254] of byte）：integer; STDCALL;
SlaveAddr：byte（1..254）
ReadType：boolean（false = Coils / true =控制寄存器）
数据：字节的数组[0..254]（器件数据）
返回整数（0 = OK）

{*从MODBUS设备扩展读取数据*}
函数GetMBDataEx（const SlaveAddr：word; const ReadType：word）：pointer; STDCALL;
SlaveAddr：word（1..254）
ReadType：字（0 =线圈/ 1 =保持寄存器）
255字节的返回指针（设备数据或0 =错误）

{* VBA（Microsoft Visual Basic）从MODBUS设备读取数据*}
函数GetMBDataVBA（const SlaveAddr：LongInt; const ReadType：LongInt）：pointer; STDCALL;
SlaveAddr：longint（1..254）
ReadType：longint（0 =线圈/ 1 =保持寄存器）
255字节的返回指针（设备数据或0 =错误）

{*标准写入数据到MODBUS设备*}
函数PutMBData（const SlaveAddr：byte; const WriteType：boolean; const DataAddr：byte; const Data：word）：integer; STDCALL;
SlaveAddr：byte（1 ..254）
WriteType：boolean（false = Coil / true =保持寄存器）
DataAddr：byte（1..255）
资料：字
返回整数（状态码= 0 = OK）

{* VBA（Microsoft Visual Basic）将数据写入MODBUS设备*}
函数PutMBDataVBA（const SlaveAddr：longint; const WriteType：longint; const DataAddr：longint; const Data：longint）：longint; STDCALL;
SlaveAddr：longint（1..254）
WriteType：longint（0 =线圈/ 1 =保持寄存器）
DataAddr：longint（1..255）
数据：longint
返回longint（状态码> = 0 = OK）